home *** CD-ROM | disk | FTP | other *** search
/ Softwarová Záchrana 3 / Softwarova-zachrana-3.bin / Xteq X-Setup / xqdcXSP-Setup-EN.exe / {app} / plugins / XQ WinXP Start Menu 9.xpl < prev    next >
Text File  |  2002-01-03  |  1KB  |  47 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="7"
  3. "COUNT"="2"
  4. "UIPATH 1"="Appearance\Start menu\Windows XP\Classic Start Menu / New Start Menu"
  5. "NAME"="Start Menu Type"
  6. "VERSION"="1.01"
  7. "LANGUAGE"="VBScript"
  8. "OSVERSION"="0000011"
  9. "TEXT 1"="Let user choose (default)"
  10. "TEXT 2"="Force "Classsic Start Menu" style "
  11. "DESCRIPTION 1"="By default, Windows XP displays the start menu in the "New Start Menu" style and lets the user choose to switch to the Classic Start Menu (by using the context menu of the Start Menu)."
  12. "DESCRIPTION 2"="This setting can be used to force the type of the Start Menu, which means the normal UI does no longer allow to change the style of the Start Menu."
  13. "AUTHOR"="Xteq Systems"
  14. "CONTACTURL"="http://www.xteq.com/"
  15. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  16. "COMMENT 1"="Thanks to Monique <monique.de.meester@pandora.be> for this tweak!"
  17.  
  18. sV="HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoSimpleStartMenu" 'DW
  19.  
  20. Sub Plugin_Initialize 
  21.  i=RegReadValue(sV)
  22.  
  23.  if i=1 then 
  24.     SetUIElement 2,true
  25.  else
  26.     SetUIElement 1,true
  27.  end if
  28. End Sub
  29.  
  30. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  31.  if GetUIElement(1)=true then
  32.     If RegValueExists(sV) then RegDeleteValue(sV)
  33.  else
  34.     Call RegWriteValue(sV,1,2)
  35.  end if
  36.  
  37.  Call IndicateSettingChange()
  38.  Call Logoff()
  39. End Sub
  40.  
  41.  
  42. Sub Plugin_Terminate 
  43. End Sub
  44.  
  45.  
  46.  
  47.